home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Examples2 / LED / led.p
Text File  |  1997-05-06  |  605b  |  25 lines
  1. program led;
  2.  
  3. { **************************************************************************
  4.  
  5.     Quickhack, (P) 12/1992 by "Diesel" Bernd Künnen ; dient
  6.     zum Umschalten der Power-LED/Tiefpassfilter. Das Programm
  7.     und der Quellcode sind übrigens Public Domain.
  8.  
  9.   ************************************************************************** }
  10.  
  11. type    ciaptr = ^byte;            { Zeiger auf ein Byte }
  12.  
  13. var    wptr   : ciaptr;
  14.  
  15. begin
  16.     wptr:= Address( $00bfe001 );
  17.  
  18.     if (wptr^ MOD 4)>1 then        { Bit 1 gesetzt ? }
  19.       wptr^:=wptr^-2        { ja -> löschen }
  20.     else
  21.       wptr^:=wptr^+2;        { sonst setzen }
  22.  
  23.                     { das war's schon ... }
  24. end.
  25.